;;;;; -*- mode: lisp; syntax: common-lisp; package: cl-user; base: 10 -*- ;;;;
(setq *gg* '(
(<START> (<NP>) GLR-GRAMMARF-1935)
(<START> (<VP>) GLR-GRAMMARF-1937)
(<START> (<NP> <VP>) GLR-GRAMMARF-1942)
(<NP> (<NP> <PP>) GLR-GRAMMARF-1947)
(<NP> (<DET> <N>) GLR-GRAMMARF-1950)
(<NP> (<N>) GLR-GRAMMARF-1952)
(<VP> (<VP> <PP>) GLR-GRAMMARF-1957)
(<VP> (<V> <NP>) GLR-GRAMMARF-1961)
(<VP> (<V>) GLR-GRAMMARF-1964)
(<PP> (<P> <NP>) GLR-GRAMMARF-1967)
(<N> (%) GLR-GRAMMARF-1969)
(<V> (%) GLR-GRAMMARF-1971)
(<DET> (%) GLR-GRAMMARF-1973)
(<P> (%) GLR-GRAMMARF-1975)
))
(setq *a-tab* '(
(0 (% (S . 6)))
(1 ($ (A)))
(2 (* (R . 1)) (% (S . 10)))
(3 (* (R . 2)) (% (S . 13)))
(4 (% (S . 15)))
(5 (* (R . 6)))
(6 (* (R . 11) (R . 12) (R . 13)))
(7 (* (R . 9)) (% (S . 17)))
(8 (* (R . 3)) (% (S . 13)))
(9 (* (R . 4)))
(10 (* (R . 12) (R . 14)))
(11 (% (S . 17)))
(12 (* (R . 7)))
(13 (* (R . 14)))
(14 (* (R . 5)))
(15 (* (R . 11)))
(16 (* (R . 8)) (% (S . 13)))
(17 (* (R . 11) (R . 13)))
(18 (* (R . 10)) (% (S . 13)))
))
(setq *g-tab* '(
(0 (<V> . 7) (<N> . 5) (<DET> . 4) (<VP> . 3) (<NP> . 2) (<START> . 1))
(2 (<P> . 11) (<V> . 7) (<PP> . 9) (<VP> . 8))
(3 (<P> . 11) (<PP> . 12))
(4 (<N> . 14))
(7 (<N> . 5) (<DET> . 4) (<NP> . 16))
(8 (<P> . 11) (<PP> . 12))
(11 (<N> . 5) (<DET> . 4) (<NP> . 18))
(16 (<P> . 11) (<PP> . 9))
(18 (<P> . 11) (<PP> . 9))
))
